1 REM ==================================
2 REM    COMMODARES PROBLEM #43-3 :
3 REM     RANDOM ORDER
4 REM    SOLUTION BY
5 REM     PAUL SOBOLIK
6 REM ==================================
100 INPUT"[147]LOW, HIGH";P1,P2
110 DIM S(P2):FOR X=0 TO P2:S(X)=X:NEXT
120 FOR X=P2 TO P1 STEP -1
130 :  Y=RND(1)*(X-P1)+P1
140 :  PRINT S(Y);
150 :  S(Y)=S(X)
160 NEXT : PRINT : PRINT